home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  701b  |  28 lines
  1. 5 GOSUB60000:REM TABELLEN DEFFINIEREN
  2. 10 INPUT"WAS NUN ";BE$:REM BEFEHL
  3. 20 GOSUB51000         :REM ZERLEGUNG
  4. 30 PRINT:PRINT"BE$=";CHR$(34);BE$;CHR$(34):PRINT
  5. 40 FORI=1TO10
  6. 50 :PRINT"BE$(";RIGHT$(STR$(I),LEN(STR$(I))-1);")=";CHR$(34);BE$(I);CHR$(34)
  7. 60 NEXT:PRINT"ANZAHL DER WOERTER (WZ) :";WZ:PRINT
  8. 70 GOTO10
  9. 51000 REMBE$ IN BE$(1)-BE$(10) ZERLEGEN
  10. 51010 FORI=1TO10:BE$(I)="":NEXT
  11. 51020 WZ=1
  12. 51030 FORI=1TOLEN(BE$)
  13. 51040 :IFMID$(BE$,I,1)=" "THENGOSUB51100:GOTO51060
  14. 51045 :IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO51060
  15. 51050 :BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
  16. 51060 NEXTI
  17. 51070 RETURN
  18. 51100 REM AU$ WOERTER AUSSORTIEREN
  19. 51110 IC=0:FORI1=1TOAZ
  20. 51120 :IFBE$(WZ)=AU$(I1)THENIC=1
  21. 51130 NEXTI1
  22. 51140 IFIC=0THENWZ=WZ+1:RETURN
  23. 51150 BE$(WZ)="":RETURN
  24. 60000 REM *** TABELLEN-DEFFINIEREN ***
  25. 60005 DATA DER,DIE,DAS,DEN, ,UEBER,UNTER,AUF,IN
  26. 60010 AZ=9:FORI=1TOAZ:READAU$(I):NEXT
  27. 60015 RETURN
  28.